home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q1099.dms
/
q1099.adf
/
MathPlot
/
Macros
/
discuss.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-04-10
|
841b
|
41 lines
/* Test of discussion */
address "MPlot_ARexx"
options results
getfunc 0 var function
get1derive 0 var derive1
get2derive 0 var derive2
say "The function is : "function
say "The first derivation is: "derive1
say "The second derivation is: "derive2
/* Discussion */
say
say "Zero points"
getpoints function zero stem zero.
do i=0 to zero.xpoints.count-1
say "f("zero.xpoints.i") = "zero.ypoints.i
end
say
say "Max points"
getpoints function max stem max.
do i=0 to max.xpoints.count-1
say "f("max.xpoints.i") = "max.ypoints.i" "max.typ.i
end
say
say "Turning points"
getpoints function turn stem turn.
do i=0 to turn.xpoints.count-1
evalstring derive1" x="turn.xpoints.i
if result = 0 then
type = "f'("turn.xpoints.i")=0"
else
type = ""
endif
say "f("turn.xpoints.i") = "turn.ypoints.i" "turn.typ.i" "type
end